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ABSTRACT 



THIS PROGRAM TESTS THE TAD INSTRUCTING OF THE PDP-8E, THE 
TAD INSTRUCTION, INSTRUCTION ADDRESS, OPER*ND ADDRESS AND 
BOTH OPERANDS ARE PRODUCED BY RANDOM NUMBE« GENERATORS, 



2. REQUIREMENTS 
2,1 EQUIPMENT 



PDP-8E EQUIPPED WITH AT UEAST 4K OF MEMORY', 
TELETYPE, 
2.2 STOHAGE 



THE PROGRAM IS LOADED INTO LOCATIONS 6600 THRU 7577, 
THE TEST AREA IS 0000«6577, TEMPORARY STOWAGE UOCATJONS 
ARE LOCATED ON PACE 0, 

2.3 PRELIMINARY PROGRAMS 



MAINDEC-8E-D0AA, DglBAi D0CA, D0DA 

3, LOADING PROCEDURE 

THE STANDARD PROCEDURE FOR LOADING BINARY JAPE? IS TO BE USED, 

4. STARTING PROCEDURE 

4,t STARTING ADDRESS 



0200 
4.2 CONTROL SWITCH SETTINGS 



SR00al, SUPPRESS HALT ON ERROR 

SR03sl, SUPPRESS END OF PASS TYPEOUT 

SR0«sl, HOLD DATA 1 CONSTANT 

SR10S1, HOLD DATA 2 CONSTANT 

SR11»1, HOLD INSTRUCTION CONSTANT 



4,3 O^^EHAToR ACTION 

4.3.1 SET 3R T3 02P0 

4.3.2 P^ESS LOAD ADDRESS SWITCH 

4.3.3 SET SR TO 0000 

4.3.4 PRESS CIEAR AND CONTINUE SWITCHES 
5, OPEKaTING PROCEDURE 



SAME AS 4, 
6, ERRORS 



6,1 ERROR HALT 



IF THE RESULTS OF THE TAD INSTRUCTION ARE INCORRECT, 
THAT IS IF THE ACTUAL AND SIMULATED LINKS, OR THE ACTUAL 
AND SIMULATED SUMS 00 NOT AGREE, THE PROGRAM 
HILL HALT AT 7407 WITH DATA! IN THE AC, 

DEPHESS CONTINUE TO DISPLAY DATA2 IN ThE AC, 

DEPRESS CONTINUE TO DISPLAY TAD INSTRUCTION IN AC, 

DEPHESS CONTINUE TO DISPLAY INSTRUCTION AOi^RESS IN AC, 

DEPHESS CONTINUE TO DISPLAY DATA2 ADDRESS IN AC, 

DEPHESS CONTINUE TO DISPLAY INDIRECT POINTtR (USED BY INDIRECT 

TAD) IN AC, 

DEPRESS CONTINUE TO RESUME TEST 



6.2 ERROR RECOVERY 



SEE 6.1 



6.3 LOOPING 



SLT SR0a=l TO PREVENT HALT AFTER ERROR, 
SET SR03=1 TO SUPPRESS END OF PASS TYPEOUT] 
SET SR0V,SR11=1 TO HOLD INSTRUCTION AND DA, A CONSTANT, 
7, RESTRICTIONS 



NONL 
8. EXECUTION TIME 



THE PROGRAM PERFORMS 4096 RANDOM TESTS IN APPROXIMATELY 5 
SECONDS, THE PROGRAM WILL TYPE "T" AFTER 
EACH 4096 RANDOM TESTS UNLESS SR03»1, 

9, PROGRAM DESCRIPTION 



THE PROGRAM IS LOADED INTO LOCATIONS 6600-'"/577, 
WITH TEMPORARY STORAGE LOCATIONS ON PAGE 0| 

THE PROGRAM USES SEPARATE RANDOM NUMBER GENERATORS TO GENERATE 
THE TAD INSTRUCTION, INSTRUCTION AND DATA ADDRESSES, AND THE 
TWO ARGUMENTS TO BE "TADDED", THE INSTRUC'IONS AND DATA ARE 
STOKED IN THEIR PREVIOUSLY GENERATED ADDRE'SeS, THE PROGRAM 
TRANSFERS TO THE LOCATION Of THE INSTRUCTION AND EXECUTES IT, 
THE PROGRAM THEN TRANSFERS TO A COMPARISON ROUTINE WHERE THE 
ACTUAL RESULT OF tHE TAD INSTRUCTION IS COMPARED TO A SIMULATED 
TAD, THE SIMULATOR IS SIMILAR TO THE ONE ilSED IN MAlNDEC* 
8E-O0CA-D, NO TADS ARE USED IN THE PROGRA" iTSELfj 

AFTER 4096 TESTS, THE PROGRAM TYPES "T" AND CONTINUES TESTING. 
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/RANDOM TAD TES'^ 

/COPYRIGHT 1970, 

/V 82 07552 

/ 

/ 

/TEMPORARY STORAGE LOCATIONS 

/ 



iUL EQUIPMENT CORP., MaYNjaRO, ^-iSS. 01754 





0000 


• 




0000 


(7000 


RETURN. 





0001 


5001 


INSTL. 


JMP 


0002 


0002 


INADDL. 


2 


0003 


0003 


DATADL. 


3 


0004 


0000 


PADDL. 





0005 


0000 


IFLAGL. 







7601 




MQA=7501 




7421 




M0L=742l 




6007 




CAr=6007 




0200 


• 200 




0200 


6007 


START. 


CAP 


0201 


5602 




JMP I 


0202 


6600 




STARTL 
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/GENERATE TEST INSTRUCTION AND DATA 
/ 





6600 


• 6600 






6600 


7300 


STARTL. 


CLA 


CLL 


6601 


3376 




OCA 


CNTRl 


6602 


7604 


TESTIL. 


LAS 




6603 


0371 




AND 


SRll 


6604 


7640 




SZA 


CLA 


6605 


5224 




JMP 


TDATIL 


6606 


4746 




JMS 


I TGENiL 


6607 


3355 




OCA 


TIFLGL 


6610 


7040 




CMA 




6611 


0001 




AND 


INSTL 


6612 


3353 




OCA 


TINSTL 


6613 


7040 




CMA 




6614 


0002 




AND 


INADDL 


6615 


3354 




DCA 


TINADL 


6616 


7040 




CMA 




6617 


0003 




AND 


DATADL 


6623 


3356 




DCA 


TDATAL 


6621 


7040 




CMA 




6622 


00E4 




AND 


PADDL 


6623 


3357 




DCA 


TPADOL 


6624 


7604 


TDATIL, 


LAS 




6625 


0372 




AND 


SR10 



/CLEAR PASS COUNTER 

/TEST SRll 

/IS SR11»1 

/SR11=1, DO NOT GENERATE INSTRUCTION 

/GENERATE INSTRUCTION 

/SAVE INDIRECT FLA 

/GET INSTRUCTION 
/SAVE IT 

/GET INSTRUCTION ADDRESS 
/SAVE IT 

/GET DATA ADDRESS 
/SAVE IT 

/GET INDIRECT TO DATA 
/SAVE IT 

/TEST SR10 



00i!0 


/01B 




S2A 


CLA 




6627 


5224 




JMP 




TDAT2L 


6630 


7040 




CMA 






6631 


0360 




AND 




TOAIL 


6632 


47&2 




J^S 


I 


TRA\DL 


6633 


3360 




DCA 




^DAlL 


6634 


76e4 


TDAT2L, 


LAS 






6635 


0373 




AN" 




SR?9 


6636 


7640 




S2a 


C.A 




6637 


5244 




JMP 




SETTL 


6640 


7040 




CMA 






6641 


0361 




AND 




T0A2L 


6642 


4/52 




JMS 


* 


TRA\DL 


6643 


3361 




DCA 




TDA2L 
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/IS SR10S1 

/SR10=1, 00 NOT GENERATE QATAl 

/GENERATE RANDOM NUHBER 



/TEST SR09 
/IS SR09sl 
/SR09=1, DO NOT GENERATE DATA2 

/GENERATE RANDOM NUMBER 
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6644 


7340 


SETTL, 


CLA 


CLL 


CMA 


6645 


0353 




AND 




TINSTL 


6646 


3754 




DCA 


I 


TINADL 


6647 


7040 




CMA 






6650 


0355 




AND 




TlfLGL 


6651 


7650 




SNA 


CLA 




6652 


5302 




JMP 




DIRL 


6653 


7040 




CMA 






6654 


0356 




AND 




TOATAL 


6655 


0367 




AND 




T7760 


6656 


7640 




SZA 


CLA 




6657 


5276 




JMP 




notaut 


6660 


7040 




CMA 






6661 


0356 




AND 




TDATAL 


6662 


0375 




AND 




K10 


6663 


7650 




SNA 


CLA 




6664 


5276 




JMP 




■notaut 


6665 


7040 




CMA 






6666 


0357 




AND 




TPADDL 


6667 


7041 




CIA 






6670 


7040 




CMA 






6671 


3756 




OCA 


I 


TDATAL 


66 72 


7040 




CMA 






6673 


036£ 




A^O 




TDAIL 


6674 


3757 




OCA 


I 


TPADDL 


6675 


53g5 




JMP 




DOTSTL 


6676 


7040 


NOTAUT, 


CMA 






66 7 7 


0357 




AND 




TPADDL 


6700 


3756 




DCA 


I 


TDATAL 


6 7 e 1 


6272 




JMP 




.-7 


6''0^ 


7040 


DIRL. 


CMA 






bwi 


0360 




AND 




TDAIL 


67P!4 


3756 




DCA 

/ 

/SIM 


I 


TOATAL 








ULATE "TAD" 




7340 


DOTSTL, 


/ 

CLA 


CLL 


CMA 



/SET UP INSTRUCTION AND DATA AT TEST ADDRESS 

/ALONG WITH RETURN TO THIS ROUTINE 

/ 



/GET INSTRUCTION 
/STORE IN TEST LOCATION 

/GET INDIRECT FLAG 

/IS INSTRUCTION INDIRECT 

/NO, GET DATA 

/ADDRESS IS INDIRECT 

/IS ADDRESS AUTO-INDEX REGISTER 



/NO 



/ADDRCSS IS AUTO-INOEX REGISTER 
/DECREMENT POINTER TO DATA 

/STORE IN TEST LOCATION 

/GET DATA 

/STORE IN TEST LOCATION 



/GET DATA 

/STORE IN TEST LOCATION 



706 


0360 




AND 


TDAIL 


/GEtV fAl 


6707 


7421 




MQL 




/SAVE IN MO 


6710 


7i;40 




CMA 






6711 


0361 




AND 


TDA2L 


/GET DATA2 


6712 


47fci 




JMS I 


TSIMAD 


/DO SIMULATION 


6713 


3363 




DCA 


TSIMAC 


/SAVE ANSWER 


6714 


7012 




RAR 






67l5 


3362 




DCA 


TSIML 


/SAVE LINK 


/ 
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/ 

/GO TO 


■71 7 

TEST 
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6716 


7040 


DOANOL. 


/ 

i CMA 






6717 


0347 




AND 


TRETTL 


/GET RETURN ADDRESS 


6720 


3000 




DCA 


RETURN 


/SAVE 


6721 


7040 




CtIA 






6722 


0354 




AND 


TINADL 


/GET INSTRUCTION ADDRESS 


6723 


7001 




lAC 




/INCREMENT 


6724 


7450 




SNA 




/IS IT 


6725 


5202 




JMP 


TESTIL 


/YES, GENERATE NEW INFORMATION 


6726 


3345 




OCA 


TEMP2L 


/NO, SAVE 


6727 


7040 




CMA 






6730 


0366 




AND 


T5400L 


/GET RETURN INSTRUCTION 
/PUT IN TEST LOCATION 


6731 


3745 




OCA I 


TEMP2L 


6732 


7140 




CLL CMA 






6733 


0361 




AND 


TDA2L 


/GET DATA2 


6734 


5754 




JMP I 

/ 

/RETURN 

/ 

DCA 


TINADL 


/EXECUTE "TAD" 








HERE AFTER 


EXECUTION 


6735 


3364 


TRETUL, 


TAC 


/SAVE AC 


6736 


7010 




RAR 






6737 


3365 




DCA 


TLINK 


/SAVE LINK 


6740 


4/74 




JMS I 


TCOMAD 


/COMPARE REAL AND SIMULATED AD( 


6741 


2376 




IS2 


CNTRl 




6742 


5202 




JMP 


TESTIL 




6743 


4750 




JMS I 


TEPASL 


/END OF PASS, 4096 TEST C0MPLE1 


6744 


5202 




JMP 


TESTIL 




/ 
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6745 


0000 


TEMP2L, 


/ 
/ 








6746 


7000 


TGENL. 


GENL 






6747 


6735 


TRETTL. 
TERROR, 


TRETUL 






6750 


7442 


tepasl, 


EPASL 






6751 


7200 


TSIMAD, 


RSIMAD 






6752 


7430 


TRANDL. 


RANDL 






6753 


0000 


TINSTL, 









6754 


0000 


TINADL. 









6755 


0000 


TIFLGL, 









6756 


0000 


TDATAL. 









675 7 


0000 


TPADDL. 










6760 
6761 
6762 
6763 
6764 
6765 
bltb 
blbl 
6770 
6771 
6772 
6773 
6774 
6 7 75 
6776 



0021 
0037 
00i:0 
0001? 

0000 

00t;0 
54fc:i? 

7/60 
7 /7k? 
0001 
0002 
0004 
7313 
0010 

mm 



TDAlt. 

TDA2L. 

TSIML, 

TSIMAC, 

TAC, 

TLIMK, 

T54Z3_. 

T776ii, 

T777?, 

SRll, 

SR10, 

SR«9. 

TCOMAO, 

K10. 

CNTRl, 



PAL10 V141 



21 
37 
iZ 


?! 

? 

54?Z 
7760 

nil 

1 
2 
4 

co^ao 
la 
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/GEMERATE INSTRUCTIONS AND ADDRESSES 
/ 





7000 


PAGE 






7000 


0000 


GENL. 













/ 

/GENERATE "AND 


7001 


7040 


GANOL. 


f 

CMA 




7002 


0350 




AND 


RIL 


7003 


4/62 




JMS I 


SRANDL 


7004 


3350 




OCA 


RIL 


7005 


7040 




CMA 




7006 


0350 




AND 


RIL 


7007 


7421 




HQL 




7010 


7040 




CMA 




7011 


0365 




AND 


K1000 


7012 


7501 




MQA 




7013 


0352 




AND 


K1777 


7014 


3001 




OCA 


INSTL 


7015 


7040 




CMA 




7016 


0001 




AND 


INSTL 


7017 


0355 




AND 


K0177L 


7020 


3361 




OCA 


TEMP3L 








/ 

/GE^iERATE ADDRi 

i 


7021 


7040 


GAN40L, 


/ 

CMA 




7022 


0353 




AND 


R2L 


7023 


4/62 




JMS I 


SRANDL 


7024 


3353 




dca 


R2L 


7025 


7040 




CMA 




7026 


0353 




AND 


R2L 


7027 


4777' 




JMS 


LIMIT 


ytisa 


5221 




JMP 


GANADL 


7.-131 


70 4 




CMA 




7i332 


0353 




AND 


R2L 


7033 


0334 




AND 


P0L 


7034 


7640 




SEA CLA 




7.»\5 


5244 
7040 




jMP 
CMA 


paGadl 



/GENERATE RANDOM NUMBER 
/SAVE NUMBER 



/GENERATE OP CODE 



/SAVE INSTRUCTION 

/GET INSTRUCTION 

/EXTRACT PAGE ADDRESS OF INSTRUCTION 

/SAVE Page address of instruction 



/GENERATE RANDOM NUMBER 
/SAVE NUMBER 



/IS ADDRESS WITHIN LIMITS 
/NO, GEMERATE NEW ADDRESS 



/IS ADDRESS ON PAGE 
/NO 



c 



337 


0353 




AND R2l 


7040 


4/76' 


PAGAL, 


JHS ABS_ 


7041 


7700 




SMA CLA 


7042 


5221 




JMP GANADl 


7043 


5255 




JMP DAL 
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7044 


7040 


PAGAOL, 


CHA 


7045 


mil 




AND INSTL 


7046 


0357 




AND K200L 


7047 


7650 




SNA CLA 


7050 


5255 




JMP PAL 


7051 


JBAZ 




CMA 


7052 


0353 




AND R2L 


7053 


0355 




AND K0177L 


7054 


5240 




JMP PAGAL 


7055 


7040 


PAL, 


CMA 


7056 


0361 




AND TEMP3L 


7057 


7650 




SNA CLA 


7060 


5201 




JMP GANDL 


7061 


7040 




CMA 


7062 


0353 




AND R2L 


7063 


3002 




OCA INADDL 
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;E ADDRESS Of IN'STRUC^ION 
/GET DirFERENCE BETWEEN PAGE ADORFSSf'? 
/IS DIEFERENCE >2 
/NO 
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/GET INSTRUCTION 

/IS PAGE BIT SET 

/NO, USE ADDRESS AS IS 

/PAGE BIT SET, EXTRACT PAGE ADDRESS FOR INSTRUCTION 
/TEST FOR INTERFERENCE 

/MAKE Sure data will 

/NOT BE STORED IN LOCATION 
/LOCATION ZERO, TRY AGAIN 
/USE ADDRESS AS IS 
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/GENERATE ADDRESS FOR DATA 
/ 



7064 

7065 

7066 

7067 

7070 

7071 

7072 

7073 

7074 

7075 

7076 

7077 

7100 

7101 

7102 

7103 

7104 

7105 

7106 

7107 

7110 

7111 

7112 



7040 

0001 

0357 

7650 

5307 

7040 

0002 

0354 

7421 

7040 

0361 

7501 

3003 

7040 

0021 

0356 

7640 

5313 

5600 

7040 

0361 

3003 

53ei 



DAADL. 



JMP 
CMA 
AND 
AND 
MQL 
CMA 
AND 
MQA 
DCA 
INDIRL, CMA 
AND 



P0AL, 



CMA 

AND INSTL 
AND K200L 
SNA CLA 

P0AL 



INADDL 
P0L 



TEMP3L 

DATaDL 

INSTL 
K400L 



/GET INSTRUCTION 

/IS PAGE BIT OF INSTRUCTION SET 

/NO, USE PAGE ADDRESS BITS OF INSTRUCTION FOR DATA ADDRESS 
/EXTRACT PAGE OF INSTRUCTION ADDRESS 



/"OR" TOGETHER TO GET 
/DATA ADDRESS 



AND 
SEA CLA 

JMP PADL 

JMP I GENl 

CMA 

AND TEMP3L 

DCA DATADL 

JMP INDIRL 

/ 

/GENERATE INDIRECT ADDRESS FOR DATA 

/ 



/IS INSTRUCTION INDIRECT 

/YES, INSTRUCTION IS INDIRECT 

/EXIT 

/USE PAGE ADDRESS OF INSTRUCTION 

/AS DTAT ADDRESS 



7113 
7114 
7115 
7116 
7117 
7l?0 
7121 
7122 
7123 
7124 
7125 
7126 
7127 
7130 
7131 
7132 
7133 
7134 
7135 
7136 
7137 
7140 
7141 



7B40 

0360 

4/62 

3360 

7040 

0360 

4/77' 

5313 

7040 

0002 

4/75' 

7700 

5313 

7040 

0003 

4775' 

7700 

5313 

7040 

0360 

7041 

7040 

7650 

PAL10 



PADL. 



I 



V141 



CMA 
AND 
JMS 
DCA 
CMA 
AND 
JMS 
JMP 
CMA 
AND 

JMS 

SMA CLA 

J>1P 

CMA 

AND 

JMS 

SMA CLA 

JMP 

CMA 

AND 

CIA 

CMA 

SNA CLA 
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R3L 

SRANQL 

R3L 



R3L 

LIMIT 
PAOL 



INADDL 
ABSLl 



PADL 



oatadl 
absli 



PADL 



R3L 



/GENERATE RANDOM NUMBER 



/IS ADDRESS WITHIN LIMITS 
/NO, TRY AGAIN 

/GET INSTRUCTION ADDRESS 

/GENEREaTE OlfFERENCE BETWEEN ADDRESSES 

/DO INSTRUCTION AND ADDRESS INTERFERE 

/YES 

/NO, TEST DATA ADDRESS AS ABOVE 
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/ADDRESSES DO NOT INTERFERE 

/WILL LOCATION 8E IF DECREMENTED 
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7142 
7143 
7144 
7145 
7146 
7147 



7150 
7151 
71S2 
7153 
7154 
7155 
7156 
7157 
7160 
7161 
7162 
7163 
7164 
7165 



5313 

7040 
0360 
3004 
7040 
5600 



0001 
0003 
1777 
0005 
7600 
0177 
0400 
0200 
0015 
00«0 
7430 
7200 
1201 
1000 



Rli, 
K3L. 
K1777, 
R2L, 

P0L, 

K0177L, 

K400L. 

K200L. 

R3L. 

TEMP3L. 

SRANOL. 

SRIMAD. 

LI ML. 

K1000, 



I 



JMP 

CMA 

AND 

OCA 

CMA 

JMP 

/ 

/ 

/ 

1 

3 

1777 

5 

7600 

177 

400 

200 

15 

f 

RANDL 

RSIMAD 

1201 

1000 



PADL 

R3L 
PAODL 

GENL 



/YES, GENERATE NEW POINTER 



/EXIT 
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7507 



/ 
/ 

/SIMULATED ADDITION 
/ 



7204 


7340 


7205 


0343 


7206 


7 421 


7207 


7040 


7210 


0344 


7211 


7581 


7212 


3345 



i76 7470 
;i77 7323 

72eei PAGE 

7200 0020 RSIMAO. 

7201 3344 OCA ARG2 /SAVE ARGUMENTS 

7202 75ei MOA 

7203 3313 OCA ARGl 

/ 

/ 

/SIMULATE ADDITION BV SIMULATED GENERATEION OF SUH 

/AND CARRY BITS 

/ 

/ 

/FORM OR OF ARGl WITH ARG2 

/ 

simao, cla cll cma 

AND ARGl /LOAD AC WITH ARGl 

MOL /PLACE IN MQ 

CMA 

AND ARG2 /LOAD Ac WITH ARG2 

MQA /FORM ARGl OR ARG2 

OCA A10RA2 /SAVE ARGl OR ARG2 

/ 

/FORM XOR(EXCLUSIVE OR) OF ARGl WITH ARG2 

/BV A XOR B=(A AND NOTB)OR(NOTA AND B) 

/ 

MOA /GET ARGl FROM MQ 

CMA /FORM NOTARGl 

AND ARG2 /AND WITH ARG2 TO SET ARG2 AND NOTARGl 

MO.L /SAVE IN MO 

CMA 

AND ARG2 /LOAD AC WITH ARG2 

CMA /FORM N0TARC2 

AND ARGl /AND WITH ARGl To GET ARGl AND N0TARG2 

MQA /OR WITH ARG2 AND NOTARGl 

OCA SIMAC /TO GET ARGl XOR ARC2 

DCA SIMLNK 

PAL10 V141 17-JUN-71 7:23 PAGE 11 

/ 

/AND ARGl WITH ARG2 

/TEST FOR CARRIES 

/IF THERE ARE NO BITS IN COMMON BETWEEN ARGl AND ARG2 

/THERE WILL BE NO CARRIES GENERATED 

/ 

7226 7040 CMA 

7227 0343 AND ARGl /LOAD Ac WITH ARGl 

7230 0344 AND ARG2 /AND WITH ARG2 

7231 7450 SNA /ARE THERE ANY CARRIES 

7232 5274 jMP ENDSIM /NO, TERMINATE SIML 4Tt.^^< 

/ ' * 

/GENERATE CARRIES 

/ 

7233 7421 HQL /SiVE flRST CAWRIgS 

ll^t l^lh ^XTCAR, MQA NOL /GET CARRIES FROM' MQ 

llll ^yltl *!:!° *"R*2 /AND WITH A10RA2 TO SEE IF mhl CAFRKS ARf '.ZHgHMtl 

7236 7430 SNA /iRr TMrsr «mv unar *»r5«,,..> t.-«>t. 



7213 


7501 


7214 


7040 


7215 


0344 


7216 


7421 


7217 


7040 


7220 


0344 


7221 


7040 


7222 


0343 


7223 


7501 


7224 


3346 


7225 


3347 



7237 5244 JMP ENCiR /NO, END SIMULATION OF CARRIES 

7240 7124 CLL RAL /PROPIGaTE CARRIES 

7241 7;>2l MQA MQL /GET PREVIOUS CARRIES FROM MQ. SAVE NEW CARRIES 

7242 7bei MQA /OR NEW CARRIES WITH PREVIOUS CARRIES 

7243 5224 jmp NXTcaR /CONTINUE 

/ 

/TEST FOR CiRRV IN'O LINK 

/ 

7244 7521 ENCAR, MQA /GET CARRIES 

7245 0345 AND A10RA2 /AND WITH A10RA2 

7246 0350 AND K4000 /TEST BIT 00 

7247 7450 SNA /IS BIT 00 1 

7250 5253 JMP ENCARl /NO, CARRIES DID NOT PROPIGATE INTO LINK 

7251 3347 OCA SIMLNK /YES, SAVE CARRY INTO LINK 

7252 5260 jMP XORALL /COMPLETE SIMULATION 

7253 7130 ENCARl, CLL CML RAR /SET AC=4000 

7254 0343 AND ARGl /AND WITH ARGl 

7255 0344 AND ARG2 /AND WITH ARG2 TQ SEE IF ORIGINAL 

7256 7440 sZA /NUMBERS GENERATED CARRY INTO LINK 

7257 3347 DCA SIMLNK /SAVE SIMULATED LINK 
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/ 

/FORM XOR OF ARGl. ARG2, AND CARRIES 

/TO GET FINAL SIMULATED SUM 

/ 

/SAVE SIMULATED CARRIES 



7260 


7501 


XORALL. 


MQA 






7261 


3351 




OCA 




CARRY 


7262 


7521 




MQA 






7263 


7040 




CMA 






7264 


0346 




AND 




SIMAC 


7265 


7421 




MQL 






7266 


T040 




CMA 






7267 


0346 




AND 




SIMAC 


7270 


7040 




CMA 






7271 


0351 




AND 




CARRY 


7272 


7501 




MQA 






7273 


3346 




DCA 




SIMAC 


7274 


7340 


ENDSIM. 


CLA 


CLL 


CMA 


7275 


0347 




AND 




SIMLNK 


7276 


7640 




SZA 


CLA 




7277 


7020 




CML 






7300 


7040 




CMA 






7301 


34 6 




AND 




SIMAC 


7302 


5600 




JMP 


I 


RSIMAD 








/TEST ADDRESS 


7303 


0000 


LIMIT, 


/ 








7304 


7421 




MQL 






7305 


7 04 




CMA 






73tJ6 


Z /■ 7 - ' 




AND 




LIMI 


73(^7 


4 2?r 




JMS 




RSI"40 


7310 


762i- 




SNL 


CLA 




7311 


2323 




ISE 




LIMIT 


^112 


5 72.% 




JMP 


I 


LIMIT 



/FORM A10RA2 AND NOTCARRY 
/SAVE IN MQ 



/FORM CARRY AND N0TA10RA2 
/OR WITH CONTENTS OF MQ 



/TO GET FINAL SIMULATED SUM 



/SAVE ARGUMENT IN MQ 

/LOAD AC WITH LIMIT 

/DO ADDITION 

/LINK Set IF NUMBER TO LARGE 

/NUMBER OK 
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'AcV 



/COMPARE SIMULATED ASD RfaL RESULT 



7313 


?L"2? 


COMAD, 







731" 


73'i0 




CLA CLL 


CMA 


7315 


P/76' 




AND 


TSIML 


7316 


7640 




SZA CLA 




7317 


7020 




CML 




7320 


7040 




CMA 




7321 


0775' 




AND 


TLINK 


7322 


7640 




S2A CLA 




7323 


■ 7020 




CML 




7324 


7430 




S2L 




7325' 


5341 




JMP 


ERRORl 


7326 


7340 




CLA CLL 


CMA 


7327 


0774' 




AND 


TAC 


7330 


704 




CMA 




7331 


0773* 




AND 


TSIMAC 


7332 


7440 




SZA 




7333 


5341 




JMP 


ERRORl 


7334 


7040 




CMA 




7335 


0773' 




AND 


TSIMAC 


7336 


7040 




CMA 




7337 


0774' 




AND 


TAC 


7340 


7640 




SZA CLA 




7341 


4752 


ERRORl, 


JMS I 


ERRORS 


7342 


5713 




JMP I 


COMAD 


7343 


0000 


ARGl, 







7344 


0000 


ARG2, 







7345 


01900 


A10RA2, 







7346 


0000 


SIMAC, 







7347 


0000 


- SIMLNK, 







7350 


4000 


K4000, 


4000 




7351 


0000 


CARRY, 







7352 


7400 


ERRORS, 


ERROR 






PA110 


V141 


17-JUN-71 

/ 

/ERROR HANDLER 
/ 



/GET SIMULATED RESULTANT LINK 

/COMPARE TO REAL LINK 

/IF" SAME, LINK = 
/NOT THE SAME, ERROR 

/GET ADDITION RESULT 

/COMPARE TO COMPLEMENT OF SIMULATION RESULT 

/NOT 0, ERROR 

/GET SIMULATION RESULT 

/COMPARE TO COMPLEMENT OF REAL ADDITION 
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7373 


6/63 








7374 


6764 








7375 


6/65 








7376 


6/62 








7377 


716 4 
7400 


PAGE 






74C0 


0000 


ERROR. 







7401 


7604 




LAS 




7402 


0267 




AND 




7403 


7640 




SZa 


CLA 


7404 


5600 




JMP 


I 


7405 


7240 




riA 


CMA 



SR00 /TEST SR00 

/IS SR00:=1 
ERROR /YES, DO NOT HAi 



7406 0777' AND TDAlL /HALT WITH DATAl IN AC 

7407 7402 HLT 

7410 7240 CLA CMA 

7411 0/76' AND T0A2L /HALT WITH DATA2 IN AC 

7412 7402 HLT 

7413 7240 CLA CMA 

7414 e/75> AND timsTl /HALT WITH IMSTRUCTION IN AC 

7415 74122 HLT 

7416 7240 CLA C^^A 

7417 0774' AND TINAOL /HALT WITH INSTRUCTION ADDRESS IN AC 

7420 7402 HLT 

7421 7240 CLA CMA 

7422 0X73' AND TQATAL /HALT WITH DATA AOORfSS IN AC 

7423 7402 HLT 

7424 7240 CLA CMA 

7425 0/72' AND TPADDL /HALT WITH INDIRECT IN AC 

7426 7402 HLT 

7427 5600 jMP i ERROR 

/ 

/RANDOM NUMBER GENERATOR 

/ 

7430 0000 RANDL. 

7431 7104 CLL RAL 

7432 7420 SNL 

7433 5240 jHP ENRaN 

7434 7421 MQL 

7435 7040 CMA 

7436 0241 AND K3 

7437 4/7l' JMS RSIMAD 

7440 5630 ENRAN, JMP I RANOL 

7441 0003 K3. 3 
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/ 

/END OF PASS 
/ 

7442 0000 EPASL. 

7443 7604 LAS 

7444 0270 AND SR03 

7445 7640 SEA CLA 

7446 5642 JMP I EPASL 

7447 7040 CMA 

7450 0271 AND C215 

7451 ^261 JMS TYPE 

7452 7040 CMA 

7453 0272 AND C212 

7454 4261 jHS TYPE 

7455 7040 CMA 

7456 0273 AND C324 

7457 4261 JMS TYPE 

7460 5642 JMP I EPASL 

/ 
/ 
/ 

7461 0000 TYPE, 



J 



2 6046 TLS 

6041 TSr 



,464 5263 

7465 72B0 

7466 5661 



7467 
7470 
7471 
7472 
7473 



7474 
7475 
7476 
7477 
7500 
7501 
7502 
7503 
7504 
7505 
7506 



4000 
0400 
0iil5 
0212 
0«524 



0000 

7041 

7421 

7040 

0770' 

4771' 

7500 

7041 

7001 

7001 

56/4 



SR00. 
SR03. 
G215. 
C212, 
C324, 



ABSL. 



.-1 

I TYPE 



JMP 

CLA 

JMP 

/ 

/ 

/ 

4000 

0400 

215 

212 

324 

/ 

/TEST FOP PROPER DIFFERENCE 

/ 



CIA 

MQL 

CMA 

AND 

JMS 

SMA 

CIA 

lAC 

lAC 

JMP 



TEMP3L 
RSIMAO 



I ABSl 
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7507 


0000 


7510 


7041 


7511 


7421 


7512 


7040 


7513 


0/67' 


7514 


477l» 


7515 


7500 


7516 


7041 


7517 


7001 


7520 


7001 


7521 


5707 


7567 


7160 


7570 


7161 


7571 


7200 


7572 


6757 


7573 


6756 


7574 


6754 


7575 


6753 


7576 


6/61 


7577 


6/60 



ABSLl. 



/ 
/ 
/ 



CIA 

MQL 

CMA 

AND 

JMS 

SMA 

CIA 

lAC 

lAC 

JMP 

S 



R3L 
RSIMAO 



ABSLl 
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00B0 11111100 00000000 00000000 00000000 00000000 zmmzm zzeenzez 00000000 

C130 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 
0200 11100000 00000000 00030000 00000002! 20000000 00000300 00000000 00000000 

0300 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 

0400 
050Z 

0600 
0700 

1000 

iiaa 

1200 
1300 

1400 
1500 

1600 
1700 

2000 
2100 

2200 
2300 

240i3 
2500 

2600 
27«0 

3000 
3100 

3200 
330^1 

3400 
3500 



3600 
3700 



4000 
4100 

4200 
4300 
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4400 
4500 

4600 
4700 



5000 
5100 

5200 
5300 

5400 
5500 

5600 
5700 



6000 
6100 

6200 
6300 

6400 
6500 



6600 
6700 



iiiiim 

11111111 



11111111 
11111111 



11111111 
11111111 



11111111 
11111111 



11111111 
11111111 



llllllll 
llllllll 



llllllll 
llllllll 



imiiii 
11111110 



7000 
7100 

7200 
7300 

7400 
7500 

7600 
7700 



llllllll 
llllllll 

llllllll 
llllllll 

llllllll 
llllllll 



A10RA2 

ABSL 

ABSLl 

ARGl 

ARG2 

C212 

C215 

C324 

CAF 

CARRY 

CNTRl 

COMAD 

DAAOL 



llllllll 

miiiii 

llllllll 
llllllll 

llllllll 
llllllll 



llllllll 
llllllll 

llllllll 
llllllll 

llllllll 
11000000 



llllllll 
llllllll 

llllllll 
llllllll 

llllllll 
00000000 
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7345 
7474 
7507 
7343 
7344 
7472 
7471 
7473 
6007 
7351 
6/76 
7313 
7064 



17-JUN-71 



PAGAL 

PAL 

RIL 

R2L 

R3L 

RANDL 

RETURN 

RSIMAO 

SETTL 

SIMAC 

SIMAO 

SIMLNK 

SR00 



7040 
7055 
7150 
7153 
7160 
7430 
0000 
7200 
6644 
7346 
7204 
7347 
7467 



llllllll 
llllllll 

llllllll 
llllllll 

llllllll 
00000000 



7523 



llllllll 
llllllll 

llllllll 
11100000 

llllllll 
00000000 
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llllllll 
11111100 

llllllll 



llllllll 
00000001 



llllllll 
00000111 

llllllll 
00011111 

llllllll 
llllllll 



DATADL 


0003 


DIRL 


6702 


OOANDL 


6/16 


OOTSTL 


6706 


ENCAR 


7244 


ENCARl 


7253 


ENDSIM 


7274 


ENRAN 


7440 


EPASL 


7442 


ERROR 


7400 


ERRORl 


7341 


ERRORS 


7352 


GANAOL 


7021 


GANDL 


7001 


GENL 


7000 


IFLAGL 


0005 


INAOOL 


0002 


INOIRL 


7101 


INSTL 


0001 


K0177L 


7155 


K10 


6775 


K1000 


7165 


K1777 


7152 


K200L 


7157 


K3 


7441 


K3L 


7151 


K4000 


7350 


K400L 


7156 


LIMIT 


7303 


LI ML 


7164 


MQA 


7501 


MQL 


7421 


NOTAUT 


6676 


NXTCAR 


7234 


P0AL 


7107 


P0L 


7154 


PAOOL 


0004 


PAOL 


7113 


PAGADL 


7044 



PAL10 V141 



SR03 


7470 


SR09 


6773 


SR10 


6772 


SRll 


6771 


SRA\'OL 


7162 


SRImaD 


7163 


START 


0200 


startl 


6600 


T5400L 


6766 


T7760 


6767 


T7770 


6770 


TAC 


6764 


tcomad 


6774 


TDAIL 


6760 


TDA2L 


6761 


TDATIL 


6624 


TDAT2L 


6634 


TDATAL 


6756 


TEMP2L 


6745 


TEMP3L 


7161 


TEPaSL 


6750 


TERROR 


6750 


TESTIL 


6602 


TGENL 


6746 


TIFlGL 


6755 


TINAOL 


6754 


TINSTL 


6753 


TLJNK 


6765 


TPADDL 


6757 


TRANOL 


6752 


TRETTL 


6747 


TRETUL 


6735 


TSIMAC 


6763 


TSIMAD 


6751 


TSIML 


6762 


TYPE 


7461 


xorall 


7260 


17-JUN-' 


71 
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ERRORS DETECTED! 
LINKS GENERATED! 23 
run-time: 5 SECONDS 
2K CORE USED 



